Virtual Sex (VCA Interactive)/Virtual Sex (VCA Interactive).iso/mac/Virtual Sex 68K Mac/MAIN/00029.ls

Text File | 1995-06-22 | 761 b | 51 lines

global gJR, gTM, gMS, gWin, gPlayedbefore

on setup
  set gJR to 0
  set gTM to 0
  set gMS to 0
end

on startMovie
  set gWin to 0
  if gPlayedbefore <> 1 then
    set gPlayedbefore to 1
    play frame the frame + 1
  else
    play frame "newGame"
  end if
end

on jakeShake
  set gWin to gJR + gTM + gMS
  if gWin = 3 then
    play frame "kel"
  else
    nothing()
  end if
  if gJR = 0 then
    set the visible of sprite 17 to 1
  end if
  if gTM = 0 then
    set the visible of sprite 16 to 1
  end if
  if gMS = 0 then
    set the visible of sprite 18 to 1
  end if
end

on JRbut
  set gJR to 1
  play movie "Virtual Sex:VS_JR"
end

on TMbut
  set gTM to 1
  play movie "Virtual Sex:VS_TM"
end

on MSbut
  set gMS to 1
  play movie "Virtual Sex:VS_MS"
end